home *** CD-ROM | disk | FTP | other *** search
/ START Magazine / START VOL 4 NO 1.st / POGOSRC.ARC / STRINGY.C < prev    next >
Encoding:
C/C++ Source or Header  |  1985-11-20  |  2.9 KB  |  208 lines
  1.  
  2. /* stringy.c - string handling stuff */
  3.  
  4. #include <stdio.h>
  5. #include "pogo.h"
  6. #include "dlist.h"
  7.  
  8. extern Names *temps[];
  9.  
  10. extern void *linkt();
  11. int do_frees;
  12.  
  13. add_frees()
  14. {
  15. if (do_frees)
  16.     {
  17.     code_void(OP_FREES);
  18.     do_frees = 0;
  19.     }
  20. }
  21.  
  22. clear_frees()
  23. {
  24. free_nlist(temps[0]);
  25. temps[0] = NULL;
  26. }
  27.  
  28.  
  29. free_nlist(s)
  30. Names *s;
  31. {
  32. Names *n;
  33.  
  34. while (s != NULL)
  35.     {
  36.     n = s->next;
  37.     freemem(s->name);
  38.     freemem(s);
  39.     s = n;
  40.     }
  41. }
  42.  
  43. add_cr_string(s)
  44. char *s;
  45. {
  46. Names *ns;
  47.  
  48. if ((ns = beg_zero(sizeof(*ns))) != NULL)
  49.     {
  50.     ns->name = s;
  51.     ns->next = temps[active_frame-1];
  52.     temps[active_frame-1] = ns;
  53.     }
  54. }
  55.  
  56. /* stuff to take care of constant strings */
  57. char *
  58. add_string(s)
  59. char *s;
  60. {
  61. Names *ns;
  62.  
  63. if ((ns = beg_mem(sizeof(*ns) ) ) != NULL)
  64.     {
  65.     if ((ns->name = clone_string(s)) == NULL)
  66.         {
  67.         freemem(ns);
  68.         return(NULL);
  69.         }
  70.     ns->next = literals;
  71.     literals = ns;
  72.     return(ns->name);
  73.     }
  74. return(NULL);
  75. }
  76.  
  77. char *
  78. str_cat(p)
  79. union pt_int *p;
  80. {
  81. char *s1,*s2;
  82. int l1, l2;
  83. char *d;
  84.  
  85. s1 = p[-2].p;
  86. s2 = p[-1].p;
  87. if (s1 == NULL)
  88.     return(s2);
  89. if (s2 == NULL)
  90.     return(s1);
  91. l1 = strlen(s1);
  92. l2 = strlen(s2);
  93. if ((d = beg_mem(l1+l2+1)) == NULL)
  94.     return(s1);
  95. strcpy(d,s1);
  96. strcpy(d+l1,s2);
  97. add_cr_string(d);
  98. return(d);
  99. }
  100.  
  101.  
  102. get_sprim()
  103. {
  104. next_token();
  105. if (cttype == TOK_QUO)
  106.     {
  107.     code_big(OP_CON, add_string(ctoke) );
  108.     return(STRING);
  109.     }
  110. else if (cttype == TOK_NULL)
  111.     {
  112.     code_big(OP_CON, NULL);
  113.     return(STRING);
  114.     }
  115. else if (cttype == TOK_CNAME)
  116.     {
  117.     if (!only_in_creature("CNAME"))
  118.         return(BAD);
  119.     code_num(OP_LVAR, 3 - SECRETS);
  120.     return(STRING);
  121.     }
  122. else if (cttype == TOK_VAR)
  123.     {
  124.     if (csym->type == STRING)
  125.         {
  126.         push_var();
  127.         return(STRING);
  128.         }
  129.     else if (
  130.         (csym->type == FUNC || csym->type == FFUNC || csym->type == PREDEF))
  131.         {
  132.         struct func_frame *fuf;
  133.  
  134.         fuf = csym->symval.p;
  135.         if (fuf->ret_type == STRING)
  136.             {
  137.             call_func(csym, 1, STRING);
  138.             return(STRING);
  139.             }
  140.         }
  141.     }
  142. pushback_token();
  143. return(UNKNOWN);
  144. }
  145.  
  146. extern char *str_cat();
  147.  
  148. get_sadd()
  149. {
  150. int ok;
  151.  
  152. ok = get_sprim();
  153. if (ok != STRING)
  154.     return(ok);
  155. if (next_token())
  156.     {
  157.     if (cttype == '+')
  158.         {
  159.         if (get_sadd() != STRING)
  160.             {
  161.             want_string();
  162.             return(BAD);
  163.             }
  164.         code_big(OP_PREDEFL, str_cat);
  165.         code_num(OP_RETRIEVE, -2);
  166.         if (!in_func)    /* root function */
  167.             do_frees = 1;
  168.         }
  169.     else
  170.         {
  171.         pushback_token();
  172.         }
  173.     }
  174. return(STRING);
  175. }
  176.  
  177. get_sexpress()
  178. {
  179. int ok;
  180. int type;
  181. extern pstrcmp(), psamename();
  182.  
  183. ok = get_sadd();
  184. if (ok != STRING)
  185.     return(ok);
  186. if (next_token())
  187.     {
  188.     if (cttype == TOK_EQ || cttype == TOK_NE)
  189.         {
  190.         type = cttype;
  191.         ok = get_sadd();
  192.         if (ok != STRING)
  193.             {
  194.             want_string();
  195.             return(BAD);
  196.             }
  197.         code_big(OP_PREDEF, (type == TOK_EQ ? psamename : pstrcmp));
  198.         code_num(OP_RETRIEVE, -2);
  199.         return(INT);
  200.         }
  201.     else
  202.         {
  203.         pushback_token();
  204.         return(STRING);
  205.         }
  206.     }
  207. }
  208.